home *** CD-ROM | disk | FTP | other *** search
/ DarkBASIC - The Ultimate 3D Game Creator / PCactive 8 CD1 - DarkBasic.iso / SOFTWARE / DEMOS / DarkForge2000 / snippets_vol4 / snip_morefire.dba < prev    next >
Encoding:
Text File  |  2000-10-16  |  946 b   |  47 lines
  1. `    ------------------------------------------------------------------------
  2. `    Real Fire 2                               DarkForge Snippet (12/10/2000)
  3. `    ------------------------------------------------------------------------
  4. `    Coded by S. Lintula (sasu@dpoy.vip.fi) and optimised by R. Davey
  5. `    This is a special updated version of the Real Fire code exclusively for
  6. `    the DarkForge Snippets Volume 4. Faster and smoother.
  7.  
  8. set display mode 320,240,16
  9.  
  10. hide mouse
  11. sync rate 0
  12. sync on
  13.  
  14. create bitmap 1,320,60
  15.  
  16. flames = 9
  17.  
  18. do
  19.  
  20.     set current bitmap 1
  21.  
  22.     for n = 0 to flames
  23. `        Draw flame
  24.         ink rgb(255,79,0),0
  25.         x = rnd(319)
  26.         line x,59,x+rnd(5),59
  27. `        Draw random hole between flames
  28.         ink 0,0
  29.         x = rnd(319)
  30.         dot x,59
  31.     next n
  32.     
  33.     if frame = 0
  34.        copy bitmap 1,0,1,319,59,1,0,0,319,58
  35.        frame = 1
  36.     else
  37.        blur bitmap 1,2
  38.        frame = 0
  39.     endif
  40.     
  41.     copy bitmap 1,0,0,319,57,0,0,124,319,239
  42.     
  43.     sync
  44.  
  45. loop
  46.  
  47.